Amiga Plus 1995 #5 & #6/Amiga Plus CD - 1995 - No. 5 and 6.iso/pd/daten/easyvideo/install-easyvideo

Text File | 1995-06-15 | 5KB | 222 lines

; Installations script für EasyVideo

(set @default_dest "SYS:EasyVideo")

; Fehler / Cleanup

(onerror
        (makeassign "EasyVideo" (safe))
)

; schauen ob updatet

(set is_update 0)
(set EVideo_dest (getassign "EasyVideo" "a"))

; Wenn Update, ob überschreiben

(if EVideo_dest
    ; then
        (if (askbool
            (prompt "Ihr EasyVideo befindet sich schon im Verzeichnis \""
                                        EVideo_dest
                                        "\". Möchten Sie in dieses Verzeichnis updaten?"
                        )
                        (help
"Der Installer hat schon eine Kopie von EasyVideo entdeckt. Soll "
"diese Installation erhalten werden oder möchten Sie ein Update (YES) ? "
                        )
                        (default 1)
                )

                (set is_update 1)               ; if user wants in same place

                (set EVideo_dest                      ; if user wants in different place
            (askdir
            (prompt "Auf welche Disk oder Verzeichnis soll EasyVideo intalliert werden?")
                (help @askdir-help)
                (default "SYS:EasyVideo")
            )
                )
        )
    ; else
    (
        (set EVideo_dest
            (askdir
                (prompt "Auf welche Disk oder Verzeichnis soll EasyVideo intalliert werden?")
                (help @askdir-help)
                (default "SYS:EasyVideo")
            )
        )
    )
)

(if (not (exists EVideo_dest) )
    (makedir EVideo_dest (prompt "Erstelle Direktory") (infos) (confirm) (help) )
)

(makeassign "EasyVideo" EVideo_dest (safe))

(makeassign "VideoInstallDisk" "" (safe))

; Make EasyVideo drawer & icon if not there

(if (not is_update)
    (makedir EVideo_dest (infos))
)

(set @default-dest EVideo_dest)

(copyfiles
    (source "VideoInstallDisk:")
    (pattern "EasyVideo#?")
    (dest EVideo_dest)
)
(copyfiles
    (source "VideoInstallDisk:MyVideo.dat")
    (dest EVideo_dest)
)

(copyfiles
    (source "VideoInstallDisk:Doku")
    (dest (tackon EVideo_dest "Doku") )
    (all)
    (infos)
)

(copyfiles
    (source "VideoInstallDisk:Doku.info")
    (dest EVideo_dest)
)

(copyfiles
    (source "VideoInstallDisk:Rexx")
    (dest (tackon EVideo_dest "Rexx") )
    (all)
    (infos)
)


( if (EXISTS("S:Video.config"))
  (set copy_oldprefs
        (askbool (prompt "Standardeinstellungen S:Video.config überschreiben?")
                 (help "Ja, existierendes Konfigurationsfile in S: wird überschrieben. "
                 )
        )
  )
)

( if copy_oldprefs
    ( copyfiles
        (source "VideoInstallDisk:S/Video.config")
        (dest "S:" )
        (infos)
    )
    ( transcript "Standardeinstellungsfile Video.config wird nicht nach S: kopiert." )
)

( if (EXISTS("EnvArc:Video.config"))
  (set copy_prefs
        (askbool (prompt "Standardeinstellungen EnvArc:Video.config überschreiben?")
                 (help "Ja, existierende Konfigurationsfile in EnvArc: wird überschrieben. "
                 )
        )
  )
  ( set copy_prefs 1 )
)

( if copy_prefs
    ( copyfiles
        (source "VideoInstallDisk:S/Video.config")
        (dest "EnvArc:" )
        (infos)
    )
    ( transcript "Standardeinstellungsfile Video.config wird nicht nach ENVARC: kopiert." )
)

( if (EXISTS "VideoInstallDisk:libs/amigaguide.library" (noreq))
 (
  (working "Installiere AmigaGuide...")
  (copylib
    (source "VideoInstallDisk:libs/amigaguide.library")
    (dest "LIBS:")
  )
  (copyfiles
    (source "VideoInstallDisk:c/amigaguide")
    (dest "C:")
    (infos)
  )
 )
)

( if (EXISTS "VideoInstallDisk:libs/asl.library" (noreq))
 (
  (working "Aktualisiere LIBS:...")
  (copylib
    (source "VideoInstallDisk:libs/explode.library")
    (dest "LIBS:")
  )
  (copylib
    (source "VideoInstallDisk:libs/rexxsupport.library")
    (dest "LIBS:")
  )
  (copylib
    (source "VideoInstallDisk:libs/rexxsyslib.library")
    (dest "LIBS:")
  )
  (copylib
    (source "VideoInstallDisk:libs/asl.library")
    (dest "LIBS:")
  )
  (copylib
    (source "VideoInstallDisk:libs/mathffp.library")
    (dest "LIBS:")
  )
  (copylib
    (source "VideoInstallDisk:libs/mathieeedoubbas.library")
    (dest "LIBS:")
  )
  (copylib
    (source "VideoInstallDisk:libs/mathieeedoubtrans.library")
    (dest "LIBS:")
  )
 )
)

(working "Copiere Fonts...")
(copylib
    (source "VideoInstallDisk:libs/diskfont.library")
    (dest "LIBS:")
)
(copyfiles
    (source "VideoInstallDisk:fonts")
    (dest "FONTS:")
    (all)
    (infos)
)

(working "")

; modify S:User-Startup

(startup "EasyVideo"
        (prompt
                "Ich definiere ein Assign für EasyVideo in der \"S:user-startup\" "
                "Als Direktory kann in der Konfiguration dann \"EasyVideo:\" angegeben werden."
        (help "Ist besser so!")
        (command "ASSIGN Video: \"" EVideo_dest "\"")
        )
)

; reinitialize assigns

(makeassign "EasyVideo" EVideo_dest)

(complete 100)

 ; cleanup

(makeassign "VideoInstallDisk" (safe))

(exit)